COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	∂16-Apr-81  0012	RPG	PPSAV'd text
C00003 00003	∂06-May-81  1900	RPG	PPSAV'd text
C00004 ENDMK
C⊗;
∂16-Apr-81  0012	RPG	PPSAV'd text
NIL)
       (DEFUN |CXR SETF-X-ACCESS| (NIL INDEX FROB) 
	      (LIST 'CXR INDEX FROB))
       (DEFUN |CXR SETF-X-INVERT| (NIL VALUE INDEX FROB) 
	      (LIST 'RPLACX INDEX FROB VALUE))
       (DEFUN (CXR SETF-X) (G0011) 
	      ((LAMBDA (G0012 FROB INDEX) 
	       (SETQ G0012 (CDR G0012))
	       (SETQ INDEX (CAR G0012))
	       (SETQ FROB (CAR (CDR G0012)))
	       (SETF-STRUCT '|CXR SETF-X-ACCESS|
		    '|CXR SETF-X-INVERT|
		    'NIL
		    (LIST INDEX FROB)))
	       G0011
	       NIL
	       NIL)))

← ↑C
↑C

.R PPSAV
∂06-May-81  1900	RPG	PPSAV'd text

Bye
↑C
.
.;; Message from 100   on TTY77 (at TV-120)  1859: ME    
ERAID[1,me] has ⊗Xinterrupt <char><cr> and line editor ⊗= cmd.

.
.et∂pmf
αe
Bye
↑C
.r ppav
? PPAV.DMP not found
↑C
.r ppsav
et
∂27-Aug-84  1412	RPG	PPSAV'd text
       ;; Message from AZS  	(on TTY161 1410)   
Dick, Could you send me your phone number again? (azs)
↑C
↑C

.send azs I'm on the phone to VH, but it's (415)497-4202...

Exit
↑C
.;; Message from AZS  	(on TTY161 1412)   
Say Hello to her for me.  Want to call me when you get off?
;; Message from AZS  	(on TTY161 1412)   
(412) 578-2583
r ppsav